@ECHO OFF&PUSHD %~DP0 &TITLE 绿化和选项
mode con cols=36 lines=20
color 2F
Rd "%WinDir%\system32\test_permissions" >NUL 2>NUL
Md "%WinDir%\System32\test_permissions" 2>NUL||(Echo 请使用右键管理员身份运行！&&PAUSE >NUL&&EXIT)
Rd "%WinDir%\System32\test_permissions" 2>NUL
SetLocal EnableDelayedExpansion
:Menu
Cls
@ echo.
@ echo.　　　　　 菜 单 选 项
@ echo.
@ echo.     绿化[必须] → 请输入1
@ echo.
@ echo.     创建桌面图标 → 请输入2
@ echo.
@ echo.     卸载 → 请输入3
@ echo.
set /p xj= 输入数字按回车：
if /i "%xj%"=="1" Goto Install
if /i "%xj%"=="2" Goto Establish
if /i "%xj%"=="3" Goto Uninstall
@ echo.
echo      选择无效，请重新输入
ping -n 2 127.1>nul 
goto menu
:Install
@ echo.
ECHO 　　　正在安装中..请稍等..
taskkill /f /im QQBrowser*>NUL 2>NUL
del /f /q .\QQBrowser\pcmgr_down.exe
del /f /q .\QQBrowser\kinst_94_26.exe
copy /y NUL .\QQBrowser\pcmgr_down.exe >NUL
copy /y NUL .\QQBrowser\kinst_94_26.exe >NUL
attrib +R .\QQBrowser\pcmgr_down.exe
attrib +R .\QQBrowser\kinst_94_26.exe
md "%localappdata%\Tencent\QQBrowser" 2>NUL
mklink /J "%localappdata%\Tencent\QQBrowser\User Data" .\data\UserData 1>NUL 2>NUL
goto Install2
:Establish
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\QQ浏览器.lnk""):b.TargetPath=""%~dp0QQBrowser\QQBrowser.exe"":b.Arguments=""--disk-cache-dir=""""%~dp0data\Cache"""" --disk-cache-size=314572800"":b.WorkingDirectory=""%~dp0"":b.Save:close")
goto fanhui
:Uninstall
@ echo.
echo 　　　正在卸载中..请稍等..
taskkill /f /im QQBrowser*>NUL 2>NUL
rmdir /q "%localappdata%\Tencent\QQBrowser\User Data" >NUL2>NUL
rd/s/q "%localappdata%\Tencent\QQBrowser" 2>NUL
del /f /q "%userprofile%"\Desktop\QQ浏览器.lnk /F>NUL2>NUL
::del /f /q "%userprofile%"\桌面\QQ浏览器.lnk /F>NUL2>NUL
goto Uninstall2
:fanhui
@ ECHO.
ECHO 　　　设置完成..
ping -n 2 127.8>nul
goto menu
:Install2
@ ECHO.
ECHO 　　　安装完成..
ping -n 2 127.8>nul
goto menu
:Uninstall2
@ ECHO.
ECHO 　　　卸载完成..
ping -n 2 127.8>nul
goto menu
